home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / stat.m2i < prev    next >
Text File  |  1997-11-18  |  241b  |  17 lines
  1. /* Display the number of Drawers and Tools */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS "M2IPort.Rexx"
  5.  
  6.  RESULT=0
  7.  
  8.  count "*.d"
  9.  drw=RESULT
  10.  RESULT=0
  11.  count "*.t"
  12.  tool=RESULT
  13.  
  14.  total=drw+tool
  15.  
  16.  message "Stat : "drw" Drawers - "tool" Tools - "total" Icons."
  17.